﻿Public Class carga_combo

    Public Sub cargar(ByVal com As ComboBox, ByVal tabla As DataTable, ByVal pk As String, ByVal des As String)
        com.DataSource = tabla
        com.ValueMember = pk
        com.DisplayMember = des
        com.SelectedIndex = -1

    End Sub

End Class
